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CTERM Remote terminal protocol driver 
ABSTRACT: 


ENVIRONMENT: 
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AUTHOR: Jake VanNoy, CREATION DATE: 30-Aug-1982 
MODIFIED BY: | 
VO3-002 JL.v0337 Jake Van 28-F EB-1984 
ix: CRFILL, LFFICL. WRAP. EIGHTBIT, SPEED TABLE 
HAROCOPYSSCOPE. REGHFORM. MECQTABL PARITY | 


v03-001 JLV0289 Jake VanNoy 28-JUL-1983 
Update to new characteristics selectors. 
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0000 58 
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DECLARATIONS -SEP- 1982 88; ¢ 38 RTPAD.SRCIC TDSET.MAR: 1 ° 3) 
69 ~SBTTL DECLARATIONS 
0 66 ; INCLUDE FILES: 
0 63 ; 
00 64 STTDEF 
00 65 ST OBEF 
00 66 STSADEF 
00 6 SUCBDEE 
448 oe STTYUCBDEF 3; tty dependent UCB info 
9000 19 EXTERNAL CT$AB_TERM_TABLE 
$608 I s 
0000 73 ; MACROS: 
0000 74 ; 
0000 75 
0000 76 
0000 77; 
0000 78 ; EQUATED SYMBOLS: 
0000 79 ; 
0000 80 
0000 a) i eee TEMP 
0000 ¢ 
0000 83 .save LOCAL_BLOCK 
0000 84 .psect $ABS$S,ABS 
0000 85 
00000110 tt 6 - = UCBST_CT_DEBUG_FILL 
00000111 0110 88 UCBSB_CT_CRFILL: -BLKB 
00000112 0111 89 UCBSB_CT"LFFILL: -BLKB 
00000114 Bile ay UCBSW_CT_SPEED: -BLKW 
00000000 38 re 
944 37 ieee *END TEMP 
00000000 0000 95 physical = ch$c meee ; 0 leftshifted one byte 
00000100 it 96 logical = ch$c_logicalas : 1 leftshifted one byte 
00000200 44 a cterm = ch$c_cterma8 ; 2 leftshifted one byte 
Q 
00000000 0000 99 P1 = 0 
00000004 0000 100 P = 4 
00000008 0000 13] p = 8 
0000000C 0000 1 ¢ P4 « 12 
aie id BR8 19 P5 = 16 
00000014 104 Pé6 = 20 
44 105 
0 196 : 
Bag + ; OWN STORAGE: 
0900 109 SPEED_TABLE: 
00 9 33 110 .@ORD 3 filler 
00 00 111 «WORD 0 ; assumes values of TT$C_BAUD_xxx 
048 0004 1 . WORD 5 
Obs 0 ¢ 11 WORD 110 
086 00 114 WORD 13 
096 A 115 . WORD 150 
012C C 116 . WORD 300 
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~SBTTL CT_SET = Map VMS data into TSA characteristics 


OO 


ca 
+ 


FUNCTIONAL DESCRIPTION: 
CALLING nae" 
BSBW T_SET 
INPUT PARAMETERS: 
DEPEND data 
L-DEVDEPND2 data 
nw (Low byte = sregen it. My byte = 


p r 
ill: (Low byte = CR fill, High byte = LF ef 
arity and frome size 


OUTPUT PARAMETERS: 

R2 = Address of byte after buffer data 
IMPLICIT OUTPUTS: 

NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 
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CT_SET:: 


IWAI.AIAIPSPOPIPOPOPYINININININPIPYNPINIPYNMNNND: 


AAAS MPITMOPONUPONOPONIPofonononofnononypornropofporofponnys 


i Lb ah th ah el. a ee ee et et et er ot or ot ot or ot ot ot ot ot ot ot ot ot at ot >t ot ot ot >t >t >? >t > > > > 


OE00 8F PUSHR #*M<R9,R10,R Save input 
56 2C A2- 9%E MOVAB CTPS$W_ cH  PARAMCR2) R6 t butter pointer 
> See if DEVCLASS, DEVTYPE and DEVBUFSIZ are the same 
40 AS 59 01 CMPL R9,UCBSB_DEVCLASS(R5)  ; Compare all at once 
12 BNEQ 10$ ; Branch if not 
: Because HARDCOPY is in TERM BITS, check for change here 
59 AS 5 : XORL3 R10 UCBSL L ADEVDEPEND(RS) , .R9_; get bits that changed... 
5 BBS artsy ; Scope/hardcopy change - send type and bits | 
38 BRW DEVDE PEN ND ; Ok to continue 


58 59 08 08 
57 00000000'EF 


EXTZV #8,#8,R9,R8 ; Get terminal type 
BEQL ; Branch if setting to unknown 
MOVAB CTSAB_TERM_TABLE,R7 ; Get address of terminal table 


COOOCOCOOCSOSOOSOOOOOOSO OOOO OOOOOOSOOSOOOCO OOOO OOOOCOOOCOCOOCOCOOOOOOOOCOO 
eee errr wie lolololo lo lololololololololololololololololelolola=l=l=) 
ee ee ce ed ee a ee ae ee ee ce a ce ce a ce ee ee ce cee ce re ce ee ce a ee ce ce ee ed ec ce ce ee ed ed ce ee ee ee ee ee ee ee ee ee ee 


COO909 09090900 SII NNN SS IDS DDS DDD DDD TT BB BS BS BB BB WAIN 
AIA WR 2 O OD NAUE IN 9 OO NAME WIN OOD NAU EWN 0 OONAU EWR 0 OONOUES WN OO 
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- Map VMS data into TSA character -1984 RTPAD.SRCJCTDSET.MAR; 1 | vO 
04C 187 208: CMPB (R7)+,R8 ; Is it the Senet 
Bef 1 3 EQL ; Branch if y 
ia prety (R7)+,R0 ; Get length yot string 
3 190 ADOL RO,R7 ; Add to address 
7 191 Re) ; End of table? 
bee 136 . BNEQ 0$ ; Branch if no 
058 194 Unknown terminal, set up terminal attributes | 
058 195 
0058 196 $08: 
0058 19 CLRL RO ; Assume unknown/hardcopy 
Beep 138 BRB 55$ 3 continue 
bose 00 terminal match found, copy text string of terminal type 
BSF BE) bos | 
86 0103 8F BO OOSF $8 “ OVW Tagg ical ichse_ lg_term type, (R6)+ ; Set terminal type data | 
50 $7 9A 0064 204 MOVZBL ; Get Length of string | 
50 D6 0067 05 INCL me 3 Add one for count 
3C = BB. s«éO069 06 PUSHR #*M<R2 a. the R5> ; Save 
66 67 50 28 0068 07 MOVC3 RO, (R75, ( ; Move terminal string | 
56 53 00 O06F 08 MOVL R3,R ; Update buffer pointer 
3c BA 38 a4 POPR #A<R2, R3,R4,R5> 3; Save 
50 01 9A 074 311 NOVZBL #CTPSM. CH KNOWN..RO ; Set known, Assume hardcopy | 
03 5A OC €1 0077 1 55$: BBC #TT$V_SCOPE,R10,60$ ; Branch if scope bit clear in new char 
50 02 88 th sl cen BISB #CTPSA_CH_SCOPE RO ; Set scope | 
86 0102 8F BO 007 215 MOVW Sropical tchSec. lg_term_ bits, (R6)+ ; Move terminal bits data 
86 50 860 it $1§ MOVW RO, (R6)+ ; Set characteristic 
0086 218 : Now do terminal width 
0086 si 3 | 
58 59 10 10 EF 0086 20 EXTEN #16,#16,R9,R8 3; Get width 
42 A5 58 81 OO08B 221 CMP R8, UcBsu ReNBUFSIZ(RS) : pote. to current setting 
08 13 oe $56 BEOL DEVDEPEND : Branch if equal, nothing to do 
86 0109 8F BO 0091 $i MOVW Slogical tchSc. Lg_line_width,(R6)+ ; Set Line width 
86 58 8B0 94 $$2 MOVW RB, (R6)+ : Move into buffer 
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vou=00 CT_SET = Map VMS data into TSA character eet 88:92:38 LRIPAD sre CTDSET.MAR;1 
099 § 
099 $ 
$32 9 ; Process DEVDEPEND bits (high byte is page length) 
$99 § : 
444 z ; R9 is scratch now 
58 SA 08 18 EF a033 3 FE VDE PEND ETZV #24 ,,#8,R10,R8 Fetch L h 
° ; Fetch page lengt 
5A "FEQ00000 BF CA 0096 $ BICL #TT$" PAGE R10 : Clear page length bits 
47 AS 58 91 OQOA 8 CMPB R8 UCBSL_DEVDEPEND+3(R5) : Compare to current setting 
08 13 O0A9 39 BEQL =: 108 : Branch if equal 
86 O10A 8F BO QOAB 41 MOVW #logical!ch$c_lg_page_length, (R6)+ ; Move data type 
8 58 BO 3 62 OV RB,(R6)t Os Move data #3 
FFOOO000 8F CB 008 4G BICL3 #TTS$M_PAGE,- 
59 44 AS 0089 45 UCBSL DEVDEPEND(RS) ,R9 ; Fetch current DEVDEPEND bits 
59 SA CC prec 6 XORL R10,R9 ; Determine which bits changed 
ee re ; CR fill and LF fill must be checked before the test for R9 = 0. 
OOBF 250 CRFILL: 
50 OC AC 9A OQOBF 51 MOVZBL P4(AP),RO 3; Fetch CRFILL 
09 59 OA €0 00C3 $26 BBS #TTS$SV_CRFILL,R9,10$ ; Branch if it has changed 
14 13 00C7 5 BEQL LFFIL 3; Or parameter = zero 
0110 ¢S 50 91 00C9 54 CMPB RO,UCBSB_CT_CRFILL(R5) ; compare to old value 
OD 13 OQOCE 55 BEQL LFFIL ; branch if no change 
86 010C 8F BO O0D0 256 108: MOVW #logical!ch$c_lg_cr_fill,(R6)+ ; Set data type 
8 50 B60 00D5 see MOVW RO, (R6)+ ; CR FILL count 
0110 ¢S «6500S 90 pepe $26 MOVB RO,UCBSB_CT_CRFILL(R5) ; save value 
OODD 260 LFFILL: 
50 0D AC 9A O0DD $6) MOVZBL P4+1(AP),RO 3 Fetch LFFILL 
09 59 OB £0 O0E1 6¢ BBS #TTSV_LFFILL,R9,10$ ; Branch if it has changed 
14 13 OQOES 26 BEQL $ 3 or parameter = zero 
0111 ¢S 50 91 QOE7 $e CMPB RO,UCBSB_CT_LFFILL(R5) ; compare to old value 
Ob 13 OOEC 65 BEQL OS _..¢_branch if no change 
86 0100 8F 680 it 66 10$: MOVW spe tices sense. ta CF FICL. (s6)® ; Set data type 
86 50 B80 OOF 67 MOV RO, (R6)+ ; LF FILL count 
0111 ¢5 50 90 OOF6 68 MOVB RO,UCBSB_CT_LFFILL(RS5) ; save value 
OOFB 269 20%: 
59 D5 OOFB 70 TSTL ; test for changes 
03 12 OOFD 71 BNEQ = PASSALL : Branch if not zero 
OOF7 31 sth BRw DEVDEPND2 ; Optimization, skip this section 
$10 74 PASSALL: 
10 75 
18 16 NOECHO: 
0B 59 +O €1 1 7 BBC #TT$V_NOECHO,R9,- . 
10 78 NOTYPEAHD ; Branch if it hasn't changed 
86 0205 8F BO 0106 279 MOV acterm!ch$c_ct_normal_echo, (R6)+ ; Set data type 
57 0} 9A 0108 0 MOVZBL #TT$V_NOECHO,RT ; Set bit 
00D0 «=: 330 10 1 BSBW TEST_BIT_NEG 3 test bit, negative sense 
111 : NOTYPEAHD: 
111 4 
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yous b00 CT_SET = Map VMS data into TSA character ety 7 8g: 97:38 URIPAD SROICTDSET MAR: 1 . 
111 5 ESCAPE: 
1959 O03 €1 Q111 § BBC #TTSV_ESCAPE,R9,- 
5 9% 118 f — Ups TS TNC ; Branch if it hasn't changed 
03 SA 33 4 11 9 BBC #TTSV_ESCAPE,R10,10$ ; branch if setting to noescape 
50. =—(01 0 18 $ 108 MOVB #1,R0 ; Set true 
86 0206 8F B80 O11 9 MOVW #cterm!ch$c_ct_input_esc, (R6)+ ; Set escape input 
86 0307 s BO Ot ; 3 Rowe peteretchte.ct. hist. tte s aed 
erm'ch$c_ct_output_esc, + ; Set escape output 
86 50 80 61 B 95 MOVB RO, (RO) # yy seat ; true/false : ‘ 
12E 9 
a E 3 HOS SYNC: 3; TSA Input-flow-control 
0B 59 04 «€1 «O01 98 BBC #TTS$V_HOSTSYNC,R9,=- 
01 $9 TTSYNC ; Branch if it hasn't changed 
86 0107 8F B80 QO} 00 MOVW #logical!ch$c lg input_ flow, (R6)+ ; Set data type 
1 046 9A 013 01 MOVZBL #TT$V_HOSTSYNT,RT ; Set bit 
0098 30 Hees 308 BSBW TEST_BIT ; test bit 
Bi se 304 TTSYNC: 3; TSA Output-flow-control 
0B 59 «#405 ~=«6€1 «0130 05 BBC #TT$V_TTSYNC,R9,=- 
0141 306 SCRIPT ; Branch if it hasn't changed 
86 0104 8F B0 0141 307 MOVW grogical che Lg_output_ flow, (R6)+ ; Set data type 
51 05 9A 0146 308 MOVZBL #TT$V_TTSYNC,R1 
0089 30 0149 09 BSBW TEST_BIT ; test bit 
014C 10 
014C 11 SCRIPT: 
08 59 06 €1 O14C \¢ BBC #TTSV_SCRIPT,RI,- 
0150 31 LOWER : Branch if it hasn't changed 
86 0209 8F BO 0150 $1 MOVW #cterm!ch$c_ct_auto_prompt, (R6)+ ; Set data type 
51 06 9A 0155 15 MOVZBL #TT$V_SCRIPT,RT 
007A 830 3128 318 BSBW TEST_6IT ; test bit 
0158 318 LOWER: ; Cterm raise-input 
0B 59 O7 #+£E1 O15B 319 BBC #TT$V_LOWER,R9,- 
O15F 320 MECHTAB ; Branch if it hasn't changed 
86 0204 8F BO O015F 21 MOVW #cterm!ch$c_ct_raise_input,(R6)+ ; Set data type 
51 07 9A 0164 $6 MOVZBL #TT$V_LOWER,R1 3; set bit number 
0077 +830 Bier $57 BSBW TEST_BIT_NEG 3; test bit, negative sense 
016A $3 MECHTAB: ; Logical horizontal-tab 
1259 08 €1 O16A 26 BBC #TTSV_MECHTAB,R9,- : 
016E ? WRAP ; Branch if it hasn't changed 
86 010F 4 BO piSe 3 MOVW #logical!ch$c_lg_hor_tab,(R6)+ ; Set data type 
50 2 60 01 MOV # 3; Assume no mechtab 
03 5A 08 €1 0176 0 BBC #TTSV_MECHTAB,R10,- 
Q17A 1 10$ : Branch if right 
SEs § 108 MOVW #1,R0 3 Set mechtab 
17D 4 MOVW RO, (R6)+ ; Move data 
180 5 
180 § WRAP: 
180 BBS #TTSV_WRAP,R9, 108 
184 2 BBC #TTSVSCOPE,R9,SCOPE —_; Branch if neither hasn changed 
188 108: MOVW #lo ital!ch$c_(g_wrap,(R )+ ; Set data type 
18D 40 MOVW '] ; Assume regulate software wrap 
R10, : branc rig 
190 341 BBS #TTSV_WRAP,R10, 308 branch if right 
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100 CT_SET = Map VMS data into TSA character 5-S 984 RTPAD.SRCJCTDSET.MAR; 1 (5) | 
0 .: § 194 4 MOVW #1,R0 3; Set No wra | 
03 sh i eS 193 rk BBS #TTSV_SCOPE.R10,30$ : Branch if eco ope 
0 O 80 138 rf: 308 MOVW #2,R0 : Set wrap/truncate - because of hardcopy 
8 50 B80 195 46 " — MOVW = sRO, (R6)+ ; Set data in buffer | 
an 48 SCOPE: ; Handled above in DEVCHAR code 
Bia 9 REMOTE: | 
Q1A1 26 HOLDSCREEN: | 
0B 59 ~=séOE E1 pial 5 BBC #TTSV_HOLDSCREEN,R9,=- 
1A5 54 EIGHTBIT ranch if it hasn't changed 
86 0105 8F B80 O1A5 55 MOVW ota 'ch$c_l -p29¢- stip, thels ; Set data type 
51 Of 9A O1AA 2§ MOVZBL #TTS$V_HOLDSCREE 3; set bit number 
002 30 ifs 2p BSBW TEST_BIT 3 test bit 
01B0 59 EIGHTBIT: 
09 59~—Ss«éOOF E1 0180 60 BBC Ay: EIGHTBIT,RY,- 
01B4 61 DSABL h if it hasn't changed 
86 OB B60 01B4 $¢ MOVW ff a auth h_eightbit, (RO) + ; Set data type 
51 OF 9A 0187 6 MOVZBL 4 i _— tn 3; set bit number 
0018 30 hes rt) BSBwW 3: test bit 
AL 66 MBXDSABL: 
ne rt: NOBRDCST: 
aie A READSYNC: 
018D Le: MECHFORM: 
12 59 13 E1 01BD 7 BBC #TTSV_MECHFORM,R9I,- | 
01C1 74 HALF DOP : Branch if it hasn* t changed 
86 0111 8F BO O1C1 75 MOVW #logical!ch$c_lg_form_ feed, (R6)+ Set data type 
0 98 BO 01C6 76 MOVW é : Assume no nechiare 
03 5a 1 01¢9 377 BBC #TTSV_MECHFORM,R10,- 
01CD 78 10$ : Branch if right 
50 01 B0 bic8 ie 108 MOVW #1,R0 ; Set mechform 
86 50 B0 oe 81 "move =O, (R6)+ : Move data | 
01D BS HALF DUP: 
0103 384 | 
01D $2 MODEM: 
24 11 Ht e? BRB DEVDEPND2 ; Goto DEVDEPEND 2 checking 
0103 89 TEST_BIT: | 
50 94 0105 90 CLR RO 3; Assume off 
02 SA 51 1 0107 91 BBC R1,R10,10$ ; Branch +f not setting bit 
50 6 ise 38 108: INCB RO 3; Set on | 
8 50 90 01DD 394 |  #MOVB- RO,(R6)+ : Move data 
0 Ht it RSB | 
oie 38 TEST_BIT_NEG: 
50 94 O1E1 98 CLRB RO 3 Assume off | 
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SET = Map VMS data into TSA character 5- 984 RTPAD.SRCJCTDSET.MAR; 1 
02 SA 2 9 163 399 BBS R1,R10,10$ :; Branch if setting bit 
0 6 OIE 400 INCB RO 3; Set on 
1E9 401 108: 
8 50 9 169 4 ¢ MOVB RO, (R6)+ 3; Move data 
0 OleD doe $68 
1ED 405 TEST_BIT_DEV2: ; DEVDEPEND 2 version of TEST_BIT 
0 99 O1ED 4 $ CLRB 0 ; Assume o 
02 58 1 1 QIEF 4&4 BBC R1,R11,10$ ; Branch +f not setting bit 
0 6 OTF 4 8 INCB RO 3; Set on 
1F 409 10$: 
8 50 9 1F 410 MOVB RO, (R6)+ ; Move data 
0 1F 411 RSB 
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| 


: Process DEVDEPND2 bits 
DEVDEPND2: 
$L_DEVDEPND2(R5),R9 ; Fetch current DEVDEPEND 2 bits 


L 
Hw ; Determine which bits changed 


UCB 
XORL R11 
CTSET_SPEED ; Branch if zero = optimization 


DO 
58 ff 
OD 1 
LOCALECHO: 


AUTOBAUD : 
BBC hl 5. & AUTOBAUD ,R9,- 
autobaud chan ing? 


Is 
peeing ph eutobeud, tre) + ; Set data type 


$v_AUTOB RT : Set bit number 
TEST_BIT_ ; test bit 


MOVW 

MOVZBL 

BSBW 
HANGUP : 
MODHANGUP : 


BRDCSTMBX: 


Sl el ee ee ee el el ek el ad ek ed ek ek kk ek ee 


WWW AIA ANIInononononononononn = es es 


CONAN SO OO NOUS WN" O OONAULS Ww 


4435 ALTYPEAHD: 
445 SETSPEED: 
447 ANSICRT: 
REGIS: 
BLOCK: 
AVO: 

EDIT: 
DECCRT: 


FN FN FN FN FN PN FN ee Nn re re Po oo OOO ORITINNIIVIOVU DOOOOO0OOW 


SOOOGOCOOSSOSOSSOSOGOOOSOSOGOOSGVOSOSGVOSGVGVSVOOOOOO AF $F $79 $9 9 Hy “Vy vs 


POPP INIANININININININININININININININININININPINIPUNINININPININPYNPININININD 2 OO OO 


Se ee eee ee eee eww fo lololofololololololololoio) 


Ft ot ot ot at ot at 
MMMM - 
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vous 500 CT_SET = Map VMS data into TSA character 3 een 382 §6:92 538 RTPAD.SRCJCTDSET.MAR; 1 . 
F 460 
: ree CTSET_SPEED: 
50 08 4 0 F 188 MOVL P3(AP) ,RO 3; Speed? 
: 1 13-464 EQ. CTSET_PARITY ; nope, continue 
51 0 9A 1 465 MOVZBL RO,R1 ; Get transmit speed 
5B FDEG CF OQ 18 466 OVAB  W*SPEED_TABLE.R11 : table address 
8 01 8B 1D 46 MOV Pphysicel tcntc ph_in_speed,(R6)+ ; set data type 
6 6841 8B 0 468 OVW (R17) CR1I, (R6)F 3 set speed 
51 50 08 68 EF 8 4 $9? EXTZV #8,#8,R0,R1 3; receive speed 
0 12 9 470 BNEQU 108 ; branch if non-zero 
51 50 9A 6 ? one 108 MOVZBL RO,R1 ; same as transmit speed 
86 02 B80 —E 47 MOVW #physical!ch$c_ph_out_speed,(R6)+ ; set data type 
86 6841 B80 8 ! ace MOVW CRIYS ERT eRe Fe Ne: s set speed ad 
03 5 476 CTSET_PARITY: 
0235 47 
51 10AC 3C¢ 8 5 478 MOVZWL PS(AP),R1 3; Fetch parameter 
2051 OS €1 0239 479 BBC #TTSV_ALTRPAR,R1,CTSET_EXIT ; Ignore if ALTER not flagged 
86 04 BO 023D 480 MOVW #physitcal !ch$c_ph_parity_enable, (R6)+ 
50 94 0240 481 CLRB R ; Assume off 
0251 06 €E1 0242 ret BBC #TTSV_PARITY,R1,10$ ; Branch if not setting bit 
50 96 osee 48 INCB RO ; Set on 
86 50 90 0248 484 108: MOVB RO, (R6)+ ; Move data 
10 13 0248 485 BEQL CTSET_EXIT : Ignore type if NOPARITY 
024D 487 ; Now, set parity type 
0240 488 ; 
86 05 B60 0240 489 MOVW Sphysicol jehSc_ph_parity.type. (hee 
50 01 B60 $529 490 MOVW #ch c-parity.syen. 0 3; assume even 
0351 O07 E1 0253 491 BBC #TTSV_ODD RI, 20S ; branch if even 
50 02 60 0257 re MOVW #ch$c per'ity_odd.R0 3: set odd 
86 50 B60 Bg2h 493 20$: MOVW RO, (RB) + ; load value 
025D 494 
0250 495 CTSET_EXIT: 
025D 496 
025D 497 ; : 
8 0 o33 ; Check if any characteristics changed 
50 D4& 0250 500 CLRL RO ; Assume no changes 
51 2C A2 9E O25F 501 MOVAB CTPSW_CH_PARAM(R2),R1 ; Original buffer pointer 
56 51 D1 0263 206 CMPL R1,R6 3: compare 
6 13 8 66 28 BEQL 10$ ; branch if no changes 
D6 6 4 INCL RO : Set low bit 
026A 2 10$: 
52. 56 00 O26A 06 MOVL R6,R2 ; Set output 
OE00 8F BA O $0 a4 POPR #*M<R9,R10,R11> ; Restore input 
05 8 1 08 RSB ; Return 
§ 509 
027 510 
0272 511 .END 3; CTSET 
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CTOSET 
Symbol table 
ALTYPEAHD 
BRDCSTMBX 
CHSC_CTERM 
CHSC_CT_AUTO 

PH 

PH 

PH 

PH 
CHSC_PH_PARTTY 
CHSC" PH_PARITY 

Ct 
DEVDEPEND 
DEVDEPND2 
EIGHTBIT 
ESCAPE 
HALF DUP 
HANGUP 
HOLDSCREEN 
HOSTSYNC 
LFF ILL 
LOCALECHO 


CRFI 


a 

CTDSET - CTDRIVER SET MODE PROCESSING 19m 360-1388 06:26:86 AX/VMS Macro v04-00 Page 1 
Symbol table -SEP-1984 714: RTPAD.SRCJCTDSET.MAR; 1 ( 
XON OOOOO2Z0F R 01 

pesevreseeene ene aes + 

: Psect synopsis ! 

tear nwrramnnaae wh 
PSECT name Allocation PSECT No. Attributes 
- ABS . BO 880808 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$$$115_DRIVER 000002 ( $66. 01 -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 

$$ 00000114 ¢ 6.) 02 " NOP IC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
| Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.07 00:00:00.41 
Command processing 120 00:00:00.55 00:00:01.66 
Pass 373 00:00:07.79 SS SESE 
Symbol table sort 9 Bo: 8920) -38 a BS oe 
Pass 2 9 00:00:01.5 0:00:03.01 
Symbol table output 15 00:00:00.06 00:00:00.21 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 637 00:00:11.49 00:00:25.96 


The working set_Limit was 1650 pages. 3 

68046 bytes (133 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1353 non-local and 22 local symbols. 
511 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

12 pages of virtual memory were used to define 11 macros. 


! Macro Library statistics ! 
teens eer eer ewe eee eee eee oe eee + 


Macros defined 


Macro Library name 


_$255$DUA28: (SHRLIBIREM.MLB; 1 0 
“$255$0UA28: (RTPAD.OBJJRTPAD.MLB; 1 1 
“$255$0UA28:(SYS.OBJJLI8.MLB; 

$255$DUA28: (SYSLIBJSTARLET.MLB; 2 
TOTALS ‘all libraries) 


1368 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CTDSET/OBJ=OBJ$:CTDSET MSRC$:CTDSET/UPDATE=(ENHS:CTDSET) +EXECML$/LIB+LIB$:RTPAD/LIB+SHRLIBS:REM/LIB 
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